Option Explicit
Sub Q_Sample041()
    ']wޥζ Windows Script Host Object Model
    Dim myWsh As IWshRuntimeLibrary.WshShell
    Dim myStr As String
    Set myWsh = CreateObject("Wscript.Shell")
    myStr = "\\Server\folder"				'wƧ
    Debug.Print CurDir
    myWsh.CurrentDirectory = myStr
    Debug.Print CurDir
    Set myWsh = Nothing						'
End Sub
